1000 '"ASCII" displays characters in ascii order
1010 'REV:830120  By Robert Hamilton
1020 SCREEN 0,0,0:WIDTH 80:COLOR 2,0,0:KEY OFF:K=-1:L=0
1030 LOCATE ,,1,12,13:DEF SEG=0:IF PEEK (&H410)= 109 THEN LOCATE ,,,6,7
1040 CL$=STRING$(79,0):Q$=CHR$(34):DEF SEG=64:POKE 23,128:DEF SEG
1050 CLS:LOCATE 2,1:PRINT TAB(35);"ASCII  CHART";CHR$(10):COLOR 6,0
1060 FOR I=0 TO 255: K=K+1: IF I=0 AND K=0 THEN PRINT "   0";
1070 IF K=25 THEN K=0:PRINT CHR$(10):L=L+25:L$=STR$(L):IF L<100 THEN L$=" "+L$
1080 IF K=0 THEN PRINT L$;
1090 IF I=8 THEN PRINT SPC(1);
1100 IF I=28 THEN PRINT SPC(4);
1110 IF I>8 AND I<14 THEN PRINT SPC(3);:GOTO 1130
1120 PRINT SPC(2);CHR$(I);
1130 NEXT:COLOR 10,0:LOCATE,60:PRINT "SPACE to Continue ";
1140 K$=INKEY$:IF K$="" THEN 1140
1150 COLOR 6,0:KEY ON:END
